.DO External 

.LSTON 

.Page 

;>>>>>>>>>>>>>>>>. ^ >>>>>>>>>>>>>>> 
; > 

; > Modu I e : Programs 

; > 

;> This module contains those routines that are "high- level' 

; > programs . 

; > 

:> PROCEDURE Scan 

;> PROCEDURE Strt_FreeProcess 

; > 

;>>>>>>>>>>>>>>.!>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

-Page 

.DO External 

.LSTON 

.Page 

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> > 

; > Procedure : Scan 

- J. 

;> This procedure reads each logical block on the disk and 

; > spares them i f they are bad . 

; > Inputs: { none > 

; > 

;> Outputs: { none ) 

; > 

; > fl I gor i thm : 

; > 

;> BEGIN 

;> FOR i := TO NaxLogical Blocks DO 

;> Seek_Type := RccessJOf fset 

;> Do ta— Type := User 

;> DiskStat.MrJDp := False 

;> IF NOT< SrchJCach< i > > OR < Srch_Cach.SeekNeeded ) 

; > THEN 

;> Seek< CnurtLogical > 

;> LoadJCache 
;> ELSE 

;> IF < SrchJCach.HdChg > 

; > THEN 

;> SelectHead< Cofnplefflent< Head > > 

; > LoadJCache 
; > ELSE 

;> Sector := SrchJCach.Sector 

;> IF NOT< ReadJCommon ) 

:> THEN DataJEx_Handler< ReadJCommon. ErrorCode > 

:> END 

; > 

;:>>>>>>>>>.>.>:>>>>.>>.>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 
.Page 
FIN 

DJScan: 

Ld !r2,«.HIBVTE. CIrHormStat 



Ld 
Call 

Ld 
Cal 1 

Scan : Tin 
Jr 

Call 

Scan_1 : Ld 
Ld 
Ld 

Scari_lnit: Ld 
Inc 
Djnz 

Scan_Lp : Ld 
Cal I 

Scan_Read: Ld 
Ld 
Ld 
Ld 
Ld 
Ld 

Ca! I 
Ld 
Ld 
Ld 

Jr 

find 
Jr 

Push 
Ca! I 

Ld 
Ld 
Ld 
Ld 

ScanJ1ap_Lp : Lde 
Cp 
Jr 
I new 
I nc 
DJnz 

Cal } 

Scan_Map_End: Add 
fide 
fide 

Ld 

Or 
Or 
Jr 



? r3, * . LOWBVTE . C ! rMormS ta t 
BankJCal! 

Mrk_l o+$fl, «DJScan_Response 
Rck-Read 

S I f Tsl_Resu I t , »No JSprTb I 
2, Scan- 1 

fibort 

!rO,«0 
!r1,«7 

!r2,«WrkJSus+$09 ;init PBIock and Track-Head-Sector 

&!r2JrO 

!r2 

!r1,Scan_lnl t 

Seek-Typej, *Rccess 
Hew-Seek 

Sec tor / IrF 

NrkJSy£2+$09, !r9 jsave some regs 

l4rkJSys2+$Oft, Irfi ;saMS some regs 

MrkJSys2+$0Bj. !rB :saye some regs 
lr2,«.HIBVTE. ReadJCommon 
!r3,«. LOWBVTE. ReadJC:ommon 
BankJCal! 

!r9^l4rkJSys2+$09 ;saue some regs 

!rfi^Nrk_JBys2+$0fl ;save some regs 

!rB,WrkJSys2+$0B ;save some regs 
NZ/ScanJIore 

!rO,*$FF-RdError ; check for non-fatal error 
Z.ScanJMore 

IrO jsaue error code 
Ext_Push 

!r1,*0 ; convert to iogicai inter I save 

!r2,*.HIBVTE- riap_Table 

lr3,«. LOWBVTE. Map-Table 

1 1^4^ ^HbrSctrs 

IrO,?! !r2 

IrO, IrF 

Zf Scan_l1ap_End 

I!r2 

Irl 

! r4 , ScanJ1ap_Lp 
Abort 

IrB, Irl ;add in the sector offset 

!rfl,«0 

Ir9,«0 

!r0, Ir9 ;check for logical block zero 

IrOJrfl 

!rO,!rB 

Z,Scan_LJEr"r 



; Convert the Physical block number to a Logical number 



.DO 

Or 

Jr 

Sub 

Sbc 

Sbc 

.Fm 

.DO 

Ld 

Rnd 

Or 

Jr 

Ld 

Ld 

Rcf 

Rrc 

Rrc 

Sub 

Sbc 

Sbc 

.FIN 

.DO 

Ld 

And 

Or 

Jr 

Ld 

Ld 

Ld 

P_To_L: Rcf 
Rrc 
Rrc 
Ojnz 
Sub 
Sbc 
Sbc 
.FIN 

Scan J Err : Ld 

Ld 
Ld 
Ld 

Scan_LB_Lp: Ldei 
Djnz 

Ld 
Ca! I 
Cal I 

Ld 
Ld 
Cat I 

Pop 
Tro 

Jr 

Scan_Rd_Err: Ld 
Ld 
Cal [ 



w_ioriB 

IrBJrB ; check for spareblock 

Z . Scan_h_Pop 

!rB, !rfl 

lrfi,«0 

!r9 «0 



W_20riB 

IrOJrR ; check for spare block 

!rO,*$01 

?rO, IrB 

Z . Scan_M_Pop 

!r1, !r9 

!r2, Irfl 

!r1 
!r2 

?rB, !r2 
!rfl, !r1 
Ir9,«0 



W_40riB 

!rO.!rfl ; check for spare block 

!rO>$Ol" 

!rO, IrB 

Zj,Scar-»J1_Pop 

IrlJrQ 

!r2, Irfl 

!r0,«2 

!r1 
!r2 

!rO,P_ToJL 
!rBJr2 
Irfl. Irl 
Ir9>0 



lr2,«.HIBVTE. Loq i ca I B I ock 
lr3,«.L0WBVTE. Logical Block 
Ir1,«4 

!rO,«MrkJSys+$09 

&l!r2,eir0 

!r1,Scan_LB_Lp 

Data-Type, *User_Type 
LoadJCache 
LoadJ-og i ca I 

Ir2.«-HIBVTE. SCJJector 
!r3,«.L0WBVTE. SC_Uector 
BankJCall 

IrO ; retrieve error code 

BlkStat,«B_Block+S_Block ; check for bad block 
Nz,ScanlM_Pop 

!r2,«.HIBYTE. Data_£x_Hand!er 
lr3;«.L0UBVTE. DataJEx_Handler 
Bank-Call 



cai I 



zero_Header 



Sccin_ri_Pop: 
Scan Jlore : 



Scari-lncTrks: 



Ca! 1 

inc 
Cp 
Jp 

Add 
Rdc 
fide 

Ld 
Inc 
Cp 
Jr 

Call 
Jp 

Ld 
Add 
fldc 
Ld 
Ld 
Xor 
Xor 
Or 
Jp 

Call 

Ld 

Ld 
Calf 

Jp 

.LSTOFF 



Ext_Pop 

!rF ;read next sector 
!rF^«NbrSctrs ; check for over flow 
Lt,Scan_Read 

lrB^*NfarSctrs ;go to next set of blocks 

!rfl,«0 

!r9,«0 

lrF,*0 ;otheruiise start at sector 
!rE ;and go to next head 
!rE,»NbrHds 
6e^ Scan- 1 ncTrks 

SelectHead 
Scan_Read 

{rE,*0 : otherwise seek to next track 

!rD,«1 

!rC,«0 

IrOj, IrC ; check for last track 
!r1. ?rD 

lr1,«.LOI4BVTE. < NbrTracks-1 ) 
lrO,«.HIBVTE. < NbrTracks-t > 
!rO, !r1 
Nz,Scan_Lp 

Park-Heads 

!r2,«.HIBVTE. CIrNormStat 
!r3,«.L0UBVTE. CIrNormStat 
BankJCal I 

Bank-Ret 



.DO External 

.LSTON 

. Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



; > 
- > 

;> 

;> 
;> 

; > 

; > 

• > 

• > 



: > 



;> 

: > 



Procedure: Strt-FreeProcess 
BANK 1 PROCEDURE 

This procedure Is used by the controller to start any process 
< along the lines of internal bookkeeping > that it chooses. 

Inputs: { none > 

Outputs: { none } 

fl I gor i thro : 

BEGIN 

IF < SeekCount >= 2048 > 
THEN RrmSweep 
FreeJSlfTst := 
WHILE HOT< cm > DO 

Bsy-Wait for 3 seconds 



> IF MOT< Parked > THEM Park_Heads 

> CASE FreejSlfTst OF 

> : Test Eprom 

> 1 : Test Sector Count 

> 2 : Test Motor Speed 

> 3 : Test Read/Write; FreejSlfTst := 

> Take care of Host 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
-LSTOFF 
.FIH 

.00 Internal 

.LSTON 

.Page 

.FIM 



Str t_FreeProces5 : 
Di 

Srp «WrkJ5ys ;get into a reasonable state 

CIr Sph 

Ld Spl ,*Stack_Top 



find Port2,«.$FF-Bsy ;clear BSV 

Tm SeekCount,*$FC :do arm sweep every Ik seeks or so 
•Jr Z,Chk_Park 



CIr SeekCount 
CIr SeekCount+1 



Ld I rC , » I n i t_H i Cy I ; seek to da ta r eca I I oac t i on 

Ld !rD,*lnitJLoCyl 

Ld !rE^*0 ;head zero 

Ld !rFj,*0 ; sector zero 

Cal ! MeujJSeek 

Ld !rC,«0 

Ld !rD,«$6Q 

Ld !rE,#0 

Ld frF,»0 

Cai I NeiB_Seek 



find DiskStat,»$FF-On_Track 
Cai I Set-SeekHeeded 



Chk_Park: CIr FreejSlfTst ;get ready to do some self tests! 

Chk_Pk_Jp: Ld lr2,#.HIBVTE. 200 ;wait for two seconds 

Ld !r3,«.L0MBVTE. 200 

Call Chk_Parki 



ChkJ=^ark3: 



FreePJioPark : 



Tfn OiskStat/«Parked 

Jr Hz J FreePJIoPark 

Cal { Park-Heads 

Jr Chk_Pk^p 

Tm Fr ee_S I f Ts t , *$0 1 ; check for even y a I ue 

Jr Z^FreePjSI fTst ; to do tests only every other time 

Inc Free_SlfTst jotherujise make even for next time 

Jr Chk_Pk_Jp 



FreeP-SlfTst: 



Ld 



!r2,«.HIBVTE. SlfTst_Tabfe 



Ld !r3,».L0WBVTE. 3ffTst_Table 

Add !r3,FreeJSIfTst 

fide !r2,«0 

Inc Free^lfTst ;make value odd 

Ldc !rE,e! Ir2 

I new ! ! r2 

Ldc !rF,@!!r2 

Jp §!rE 



SlfTst_Tab!e: 



.DM 

m 

.DH 

m 

.DU 
DM 

m 

.DU 
.DW 

.DU 



Free_Ram 

Chk_Pk_Jp 

FreeJEprom 

Chk_PkJp 

FreeJMtrSpd 

Chk_Pk^p 

FreeJSctrCnt 

Chk_Pk_Jp 

Chk_Pk^p 

Free_Rw 



;nop 



Free_FJam : 



Free-Eprom : 



Ld !r2.«.HIBVTE. ChkJSprChk 

Ld !r3,«.L0MBVTE. Chk^prChk 

Call Bank-Call 

Jr Nz,Chk._Pk^p 

Or S I f Ts t_Resu 1 1 . «Rcim_Fa i I 

Jr- Nz,Chk_Pk^p 

Ld lrO,«Eprom2 

Cal I EpromTest 

Jr Z,Chk_Pk^p 



Free-SctrCnt: 



Free_f1trSpd : 



Or 
Jr 

Ld 
Ld 

Cci! { 

Jr 

Or 
Jr 

Ld 
Ld 
Caf f 

Jr 



S I f Ts t_Resu 1 1 , #Eprom_Fa i ! 
Chk_Pk_Jp 

!r2 «.HIBVTE. SctrCount 



lr3,«.L0UBVTE. 
Bcink_Ca 1 1 
Z,Chk_Pk^p 



SctrCount 



S I f Tst_Resu } t J *Sector JCnt 
Chk_PkJp 

!r2,».HIBVTE. MtrSpd 
!r3,«.L0WBVTE. MtrSpd 
Bank-JCaf I 
Z,Chk_Pk_Jp 



Or SifTst_Resul t,*Disk_Speed 
Jp Chk_Pk^p 



Fr ee JHuj : Or SI f Ts t JResu 1 1 ^ »Rw_Fa 1 1 ; assume f a 1 1 ure 

Ld ir2,«.H!BVTE. RwTestl 

Ld }r3,«.L0MBVTE. RwTestI 

Call Bank_Call 

Jp Z,Chk-Pk_Jp 

find SlfTst_Result,«$FF-Ra>_fail 

CIr FreeJBIfTst 

Jp Strt-FreeProcsss ; check for arm soieep 



.LSTOFF 



.DO External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Modufe; ReadHeader Routines 

> This module contains all but the very roost primitive of 

> of procedures < the routines that are resident are listed 

> in the external spec's > that concern themselves with performing 

> a read operation. 

> 

> FUNCTION ReadHdr< Parent : BVTE { !r8 } ) : 

> BOOLEAN 

> Status : BVTE { !rO > 

> 

> >;•>>>> >>>>>>>>>>>>>>>> > >>>>>>>> 

.LSTOFF 
.FIN 

.DO External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: ReadHdr 

> This function assumes that the heads are pos i t i oned over the 

> correct track and reads the block of data following the 

> next sector mark. This routine Is used for tuio reasons: t) to 
verify the header that is laid out on a block and 2) to try 

> to recover the data within a block if the header is munched. 
> 

> Inputs: 

> Parent : BVTE { !r8 } 

> Outputs: 

> ReadHdr : BOOLEfiN { Zero flag, true if error in ReadBlock > 

> Status : BVTE { IrO > 

> Global Uariables Used: 

> Cylinder, Head, Sector 

:> 

> Local Uariables Used: 

> RdHError : BOOLEfiN < !r9/blt 7 > 

> RdExcept : BOOLEAN { !r9/bit 6 > 

> 

> Algorithm: 

> BEGIN 

> SetOeadNanTiffier< ReadBlock, Parent > 

> RdHError := False 
RdHExcep t : = Fa I se 
RHSctrGap := 
RHHdrGap := 

/" 

R 1 Set-up external ram address counter for READHEADER 

E I MselO:1 := Disk <— > Mem 

S 1 WHILE Sec torNork DO BEGIN END 

I 1 StartL := True 

D j WHILE NOT< SectorDnL ) DO BEGIN END 

E j Status := Status_Port 

N I StartL := False 



T j tIselO: 1 := Z8 <—> Mem 



;> IF < Status. State <> Norma lEndState > 

; > THEN 

; > Rese t JS ta teNach i ne 

; > Abort 

; > 

;> IF Status. ServoErr OR NOT< Status.ServoRdy > 

; > THEN 

; > RdHError : = True 

;> RdHExcept := True 

- > 

;> IF Status. CrcErrL THEN RdHError := True 

- > 

; > CI earDeadflanT i mer 

;> Status/bit 7 := RdHError 

;> Status /bit 6 := RdHExcept 

; > END 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 Internal 

.LSTON 

.Paqe 

.FIN 

ReadHdr: 





find 


OiskStat,»$FF-UrJOp 




CIr 


IrQ ;cl ear boo leans 


RdHBIk_Rpt: 


Cal 1 


RdHdr_Resldent ;go internal to the Z8 




Ld 


? r 1 . ! rO ; CASE Status . State 




Rnd 


!r1, «$0F 




Cp 


1 r 1 . *Norm_S*tate 




Jr 


2,RdHdr_Norffi 




Cal 1 


Resst_StNach 




find 


D ! skStat . «$FF-RdHdrReca 1 




Ld 


!rB, Irfi 




Ld 


Irfi. !rO 




Cal 1 


fibort 


RdHdr-Homi: 


Ld 


!r1,!rO ;IF ServorErr OR NOT< SerwRdy 




TfB 


! r 1 , *SerMoErr 




Jr 


Nz.RdH-ServoErr 




Tm 


!r1 ,*SeruoRdi4 




Jr 


Nz,RdHJSryoOk 


RdH JServoErr : 


Or 


!r9,«RdHError + RdHSrMoErr ; THEN RdHError AND 




Jr 


RdH-End 


RdHJSryoOk: 


Tm 


! rO , *CrcErr L ; 1 F S ta tus . Cr cErr 




Jr 


2,RdH_CrcErr 


RdHjChkEcc: 


Tm 


!rO,*WrtNMldL :0R Status .EccErr 




Jr 


Nz,RdH_End 




O 


! r9, «RdHError+RdCrcErr 




Or 


RdErrCnt,«EccStat 




Jr 


RdH_End 



RdHjCrcErr: 



Or 



!r9,«RdHError+RdCrcErr j ELSE 



Ld RdEr r Cn t , *CrcS ta t 

Jr RdHJChkEcc 

RdH_End: Ld !r0.!r9 ;send status back to cailer 

Ld RdStat, !r9 

Tern !rO,*RdHError jset zero flag if error 

Jp Bank-Ret 

.LSTOFF 



